PACKAGE AbsSign IS
   procedure AbsSign (X: IN OUT Integer);
END AbsSign;